;;;QQ:67762207====
[@ƹԱ˵]
{
#IF
!checkcmd ISTESTSERVER
#ACT
mov ûID ""
formatstr "where FLD_USERID = '%s'" %USERID
actcmd READSQL "TBL_Promoters" "FLD_USERID" "ûID" %A9
#ELSEACT
break
#ELSESAY
ڲݲ.\

#IF
EQUAL ûID ""
#ACT
FormatStr "'%s','','',0" %USERID
mov A8 %A9
FormatStr "FLD_USERID='%s'" %USERID
WriteValueSql "TBL_Promoters" %A9 "FLD_USERID,IntroCDKEY,SelfCDKEY,GetHorse" %A8
formatstr "where FLD_USERID = '%s'" %USERID
actcmd READSQL "TBL_Promoters" "FLD_USERID" "ûID2" %A9

#IF
!EQUAL ûID2 ""
#SAY
ӭƹʹ.\\
45ǰдƹԱCDKEY,һд޷ı\
75ʱͻһƥǳõ{FCOLOR/10}Ӱ{FCOLOR/12}.<˽Ӱ/@AboutHorse>\

ͬҲһCDKEYŸ,ԼƹԱ\
{FCOLOR/14}дCDKEYҴﵽ75ʱͻ30ƹ.\
дCDKEYҹ˻ͬѽͬƹ.{FCOLOR/12}\
ƹִﵽһʱԶһ,\
____1000ƹֿԶһ100־(1000)\
____13000ϿԶһRMB1000Ԫرƹ:)\

<CDKEY/@CDKEY>\\
<һƹ/@һƹ>\\

#IF
!EQUAL ûID2 ""
!Checklevel 45
#SAY
<дCDKEY/@@дCDKEY>

[@һƹ]
#IF
#ACT
mov ƹԱ 0
formatstr "where FLD_USERID = '%s'" %USERID
actcmd READSQL "TBL_Promoters" "CDKEYPoint" "ƹԱ" %A9
#SAY
ǰƹԱΪ<$OUTPUT(ƹԱ)>.\\

#IF
ELARGE ƹԱ 1000
#SAY
<һ/@@*ƹֻ>\
עΪԲ.\
#ELSESAY
1000²ܶһ.\

[@@*ƹֻ]
#IF
#ACT
mov ƹԱ 0
mov CDKEY 0
mov A0 %INPUTSTR
formatstr "where FLD_USERID = '%s'" %USERID
actcmd READSQL "TBL_Promoters" "CDKEYPoint,SelfCDKEYPass" "ƹԱ,CDKEY" %A9


#IF
EQUAL CDKEY %A0
#ELSEACT
break
#ELSESAY
Բ.\

#IF
ELARGE ƹԱ 1000
#ACT
div ƹԱ 10
mov D0 %P9
give ־ %D0
formatstr "where FLD_USERID = '%s'" %USERID
actcmd WRITESQL "TBL_Promoters" "CDKEYPoint" 0 %A9
#SAY
ɹΪһ<$OUTPUT(D0)>־.\
#ELSEACT
break
#ELSESAY
1000²ܶһ.\


[@AboutHorse]
#IF
#SAY
Ӱһƥ,ܹǿ.\
______{FCOLOR/10}+250\
______ƻ+25\
______ȫϵħ+22\
______ָٶ+7{FCOLOR/12}\\
{FCOLOR/14}ԥʲôǧѷĺû.ֻҪдƹCDKEY.\
75ʱϾͿԵõ.{FCOLOR/12}\\
</@ƹԱ˵>



[@@дCDKEY]
#IF
#ACT
mov A0 %INPUTSTR
formatstr "where fld_userid = '%s'" %USERID
actcmd READSQL "TBL_Promoters" "IntroCDKEY,SelfCDKEY" "IntroCDKEY,SelfCDKEY" %A9

#IF
EQUAL A0 ""
#ACT
break
#SAY
CDKEYΪ.\\

#IF
!EQUAL IntroCDKEY ""
#ACT
Sysmsg "<$OUTPUT(IntroCDKEY)> :ԻȡCDKEY"
break
#SAY
ѾдCDKEY,дCDKEY:\
<$OUTPUT(IntroCDKEY)>\

#IF
EQUAL SelfCDKEY %A0
#ACT
break
#SAY
Բ,дԼCDKEY


#IF
#ACT
mov ѯCDKEY ""
mov ½ID ""
formatstr "where cdkey = '%s'" %A0
actcmd READSQL "TBL_CDKEY" "CDKEY,FLD_loginID" "ѯCDKEY,½ID" %A9

#IF
!EQUAL ѯCDKEY ""
!EQUAL ½ID ""
!EQUAL ½ID %USERID
#ACT
FormatStr "'%s'" %A0
mov A8 %A9
FormatStr "where FLD_USERID='%s'" %USERID
actcmd WRITESQL "TBL_Promoters" "IntroCDKEY" %A8 %A9
#SAY
CDKEYѾд.\
CDKEYΪ'<$OUTPUT(A0)>'\
#ELSEACT
break
#ELSESAY
Բ,CDKEY.\
ϸѯƼ.ȡCDKEYϸϢ.\\





[@CDKEY]

#IF
#ACT
mov selfCDKEY ""
formatstr "where fld_userid = '%s'" %USERID
actcmd READSQL "TBL_Promoters" "selfCDKEY" "selfCDKEY" %A9

#IF
!EQUAL selfCDKEY ""
#ACT
Sysmsg "<$OUTPUT(selfCDKEY)> :ԻȡCDKEYƱ"
break
#SAY
ѾCDKEY,ǰCDKEY:\
<$OUTPUT(selfCDKEY)>\\
Ϸ촰ڸƳCDKEYŸ.\




#IF
#ACT
mov CDKEY ""
mov CDPASS ""
actcmd READSQL "TBL_CDKEY" "CDKEY,password" "CDKEY,CDPASS" "WHERE (FLD_LoginID IS NULL) OR (FLD_LoginID = '')"
;;ȡûʹùCDKEY

#IF
!EQUAL CDKEY ""
#ELSEACT
break
#ELSESAY
CDKEYѾûп,ϵGM.\\

#IF
#ACT
formatstr "'%s','%s'" %CDKEY,%CDPASS
mov A8 %A9
formatstr "where fld_userid = '%s'" %USERID
actcmd WRITESQL "TBL_Promoters" "selfCDKEY,SelfCDKEYPASS" %A8 %A9
;;дԼ CDKEYPassword

formatstr "where CDKEY = '%s'" %CDKEY
mov A8 %A9
formatstr "'%s'" %USERID
actcmd WRITESQL "TBL_CDKEY" "FLD_loginID" %A9 %A8
;;CDKEY,дԼID

Sysmsg "<$OUTPUT(CDKEY)> :ԻȡCDKEYƱ"
Sysmsg "<$OUTPUT(CDPASS)> :ԻȡCDKEY벢Ʊ"
#SAY
ϲ,һΪCDKEY.\\
CDKEYΪ:<$OUTPUT(CDKEY)>\
CDKEYΪ:<$OUTPUT(CDPASS)>\\
{FCOLOR/1}μǸ,Ϊδȡƹ㽱ƾ֤.\\



[@ۼ]
#IF
checklevel 75
!checklevel 76
#ACT
mov ƹԱCDKEY ""
formatstr "where fld_userid = '%s' and IntroCDKEY IS NOT NULL" %USERID
actcmd READSQL "TBL_Promoters" "IntroCDKEY" "ƹԱCDKEY" %A9
#ELSEACT
break


#IF
!EQUAL ƹԱCDKEY ""
#ACT
formatstr "where selfCDKEY = '%s'" %ƹԱCDKEY
actcmd READSQL "TBL_Promoters" "CDKEYPoint" "ƹԱ" %A9
inc ƹԱ 30
formatstr "where selfCDKEY = '%s'" %ƹԱCDKEY
actcmd WRITESQL "TBL_Promoters" "CDKEYPoint" %ƹԱ %A9
sysmsg "ϲﵽ75,ƹ˵õ30ƹֵĽ,ͬʱҲѻһֻӰ.뵽ȡ"

#ELSEACT
break



}
;;;QQ:67762207====
